Aminet 1 (Walnut Creek)/Aminet - June 1993 [Walnut Creek].iso/aminet/mus/play/multiplsr.lha/settingswinspec.gui

Text File | 1992-09-14 | 3KB | 139 lines

/*
 * MultiPlayer
 * Copyright (C) 1992 Bryan Ford
 *
 * This program is free software; you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation; either version 2 of the License, or
 * (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program; if not, write to the Free Software
 * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 *
 * I (the author of MultiPlayer) can be contacted on the Internet at
 * "[e-mail]".  See "Player.doc" for other addresses.
 *
 * $Id: settingswinspec.gui,v 4.2 92/06/21 11:12:16 BAF Exp Locker: BAF $
 *
 */

window xdef _settingswindowspec
    screen import _playerscreen
    title "Module Settings"
    screentitle _copyright
    left import _settingswinleft top import _settingswintop
    CLOSEWINDOW MOUSEBUTTONS REFRESHWINDOW
    DRAGBAR DEPTHGADGET CLOSEGADGET SIMPLE_REFRESH RMBTRAP RAWKEY
    textidcmp slideridcmp cycleidcmp checkboxidcmp buttonidcmp
  end

text
    export _settingsmodgad
    label "Module" minchars 30
    labelleft border endrow
  end

slider
    export _settingsvolumegad
    label "Volume"
    call _gui_settingsvolume
    labelleft
    min 0 max 100 level 100
    disabled
  end

slider
    export _settingsbalancegad
    label "Balance"
    call _gui_settingsbalance
    labelleft
    min -50 max 50 level 0
    disabled
  end

button
    export _settingsbalanceresetgad
    label "=" call _gui_settingsbalancereset
    disabled endrow
  end

slider
    export _settingsspeedgad
    label "Speed"
    call _gui_settingsspeed
    labelleft
    min 10 max 200 level 50
    disabled
  end

button
    export _settingsntscgad
    label "PAL" call _gui_settingspal
    disabled
  end

button
    export _settingspalgad
    label "NTSC" call _gui_settingsntsc
    disabled endrow
  end

text
    export _settingsendgad
    label "End"
    labelleft border
  end

button
    export _settingsendsetgad
    label "Set" call _gui_settingsendset
    disabled
  end

button
    export _settingsendcleargad
    label "Clear" call _gui_settingsendclear
    disabled endrow
  end

cycle
    export _settingsfiltergad
    label "Filter"
    call _gui_settingsfilter
    options array "Controlled by module" "Force off" "Force on" null end
    labelleft
    disabled endrow
  end

checkbox
    export _settingstempogad
    call _gui_settingstempo
    label "Protracker tempo commands" labelright
    disabled endrow
  end

checkbox
    export _settingsendfadegad
    call _gui_settingsendfade
    label "Fade on song end" labelright
    disabled endrow
  end

button
    label "Current"
    call _gui_settingscurrent
  end

button
    label "Close"
    call _gui_settingsok
  end

endcap